home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / test 8 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  454 b   |  15 lines
  1. 5 rem--ahoy!--june issue--memory management test 8--prog page 81
  2. 10 rem:for tape-save first
  3. 20 rem:memory management test 8
  4. 30 rem:loads into standard ram in the   commodore 64
  5. 60 if peek(251)=1 goto 100
  6. 70 t8$="[147]test 8 now active":print t8$
  7. 80 print"loading test 9 at 49152"
  8. 90 poke 49152,0:poke44,192:load"test 9",8:rem**leave off the ,8 for tape
  9. 100 print t8$
  10. 110 print "enter 9[146] for test 9"
  11. 130 get in$:if in$=""goto130
  12. 140 in=val(in$)
  13. 150 if in<>9 goto 110
  14. 170 poke 44,192:goto 10:rem block 49152
  15.